home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / shazam.exe / SK2.EVT < prev    next >
Encoding:
Text File  |  1992-09-01  |  3.5 KB  |  115 lines
  1.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  2.  
  3.    This code changes both the MenuBar and StatusLine.
  4.  
  5.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  6. procedure Dump ;
  7. begin
  8.    Delete ( MenuBar ) ;
  9.    Dispose ( MenuBar , Done ) ;
  10.    Delete ( StatusLine ) ;
  11.    Dispose ( StatusLine , Done ) ;
  12. end ;
  13.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  14.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  15. procedure hdInit ;
  16. begin
  17.    Dump ;
  18. {$IFDEF code}
  19.    MenuBar                   := InitMenuBar1 ;
  20.    StatusLine                := InitStatusLine1 ;
  21. {$ELSE}
  22.    MenuBarName               := 'MENUBAR_1' ;
  23.    StatusLineName            := 'STATUSLINE_1' ;
  24.    Application^.InitMenuBar ;
  25.    Application^.InitStatusLine ;
  26. {$ENDIF}
  27.    Insert ( MenuBar ) ;
  28.    Insert ( StatusLine ) ;
  29. end ;
  30.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  31.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  32. procedure hdNotepad ;
  33. begin
  34.    Dump ;
  35. {$IFDEF code}
  36.    MenuBar                   := InitMenuBar2 ;
  37.    StatusLine                := InitStatusLine2 ;
  38. {$ELSE}
  39.    MenuBarName               := 'MENUBAR_2' ;
  40.    StatusLineName            := 'STATUSLINE_2' ;
  41.    Application^.InitMenuBar ;
  42.    Application^.InitStatusLine ;
  43. {$ENDIF}
  44.    Insert ( MenuBar ) ;
  45.    Insert ( StatusLine ) ;
  46. end ;
  47.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  48.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  49. procedure hdTimePlanner ;
  50. begin
  51.    Dump ;
  52. {$IFDEF code}
  53.    MenuBar                   := InitMenuBar3 ;
  54.    StatusLine                := InitStatusLine3 ;
  55. {$ELSE}
  56.    MenuBarName               := 'MENUBAR_3' ;
  57.    StatusLineName            := 'STATUSLINE_3' ;
  58.    Application^.InitMenuBar ;
  59.    Application^.InitStatusLine ;
  60. {$ENDIF}
  61.    Insert ( MenuBar ) ;
  62.    Insert ( StatusLine ) ;
  63. end ;
  64.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  65.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  66. procedure hdAddressBook ;
  67. begin
  68.    Dump ;
  69. {$IFDEF code}
  70.    MenuBar                   := InitMenuBar4 ;
  71.    StatusLine                := InitStatusLine4 ;
  72. {$ELSE}
  73.    MenuBarName               := 'MENUBAR_4' ;
  74.    StatusLineName            := 'STATUSLINE_4' ;
  75.    Application^.InitMenuBar ;
  76.    Application^.InitStatusLine ;
  77. {$ENDIF}
  78.    Insert ( MenuBar ) ;
  79.    Insert ( StatusLine ) ;
  80. end ;
  81.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  82.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  83. procedure hdCommunications ;
  84. begin
  85.    Dump ;
  86. {$IFDEF code}
  87.    MenuBar                   := InitMenuBar5 ;
  88.    StatusLine                := InitStatusLine4 ;
  89. {$ELSE}
  90.    MenuBarName               := 'MENUBAR_5' ;
  91.    StatusLineName            := 'STATUSLINE_4' ;
  92.    Application^.InitMenuBar ;
  93.    Application^.InitStatusLine ;
  94. {$ENDIF}
  95.    Insert ( MenuBar ) ;
  96.    Insert ( StatusLine ) ;
  97. end ;
  98.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  99.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  100. procedure hdCalculator ;
  101. begin
  102.    Dump ;
  103. {$IFDEF code}
  104.    MenuBar                   := InitMenuBar6 ;
  105.    StatusLine                := InitStatusLine5 ;
  106. {$ELSE}
  107.    MenuBarName               := 'MENUBAR_6' ;
  108.    StatusLineName            := 'STATUSLINE_5' ;
  109.    Application^.InitMenuBar ;
  110.    Application^.InitStatusLine ;
  111. {$ENDIF}
  112.    Insert ( MenuBar ) ;
  113.    Insert ( StatusLine ) ;
  114. end ;
  115.